shared_not

library(tidyverse)
library(plotly)
library(crosstalk)

sw_eye <- starwars %>% 
  filter(eye_color == str_extract(eye_color, "\\w+")) %>% 
  filter(eye_color != "unknown", eye_color != "hazel", eye_color != "white") %>% 
  filter(mass < 200) %>% 
  mutate(eye_color = fct_infreq(eye_color)) %>% 
  mutate(species = fct_rev(fct_infreq(species)))
sw_eye_levels <- levels(sw_eye$eye_color)
#shared_sw_eye <- SharedData$new(sw_eye)

vertbar <- ggplotly(sw_eye %>% 
  ggplot(aes(eye_color)) +
  geom_bar())
scatter <- plot_ly(data = sw_eye, x = ~mass, y = ~height, 
        color = ~eye_color, colors = sw_eye_levels,
        text = ~name, mode = "markers")   %>% 
  layout(title = "\nStarWars Character Eye Color", height = 400)

Specifying width/height in layout() is now deprecated.
Please specify in ggplotly() or plot_ly()

horbar <- ggplotly(ggplot(sw_eye, aes(x = species)) + geom_bar() + coord_flip())

subplot(vertbar, scatter)

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#scatter
Can only have one: config

subplot(scatter, horbar, nrows = 2)

No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plot.ly/r/reference/#scatter
Can only have one: config